home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
win_utl2
/
pspa370a.zip
/
EXAMPL17.POM
< prev
next >
Wrap
Text File
|
1996-04-26
|
324b
|
10 lines
BEGIN $FLINE ^ "Tomato"
LOG "Y" = "Y" "The word was found in the following line:"
TRIM $FLINE "B" " "
LOG "Y" = "Y" $FLINE
PARSE inpfname $COMMAND "2* " "3* "
SET message = "The file containing ""Tomato"" is: "
APPEND message message inpfname
HALT "Y" = "Y" message
END